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Renew Now. the Price is Going Up 


If you renew your subscription before March 1, 1982, you can renew 
at the current rate of $12/year. Starting March lst, the price 
will go up to $15/year (2nd class mail in the USA). Subscriptions 
sent First Class Mail to USA, Canada, and Mexico will be $18/year. 
Air Mail subscriptions to all other countries will be $28/year. 
The price for back issues will be $1.50 each (plus $1.00 postage 
outside of USA, Canada, and Mexico). 


S-C MACRO Assembler II is almost here! 


By the time you read this, I expect to be filling orders for the 
new MACRO version. This is what I have been calling Version 5.0, 
but I have decided to call it S-C MACRO Assembler II instead. 
Version 4.0 will still be sold at $55. The MACRO version will be 
$80. Owners of Version 4.0 can upgrade for only $27.50. There 
will be an all new manual. rather than the current 2-part manual. 


The MACRO Assembler includes macros (of course!), conditional 
assembly, EDIT. COPY, global string replacement, and many more new 
features. And it assembles even faster than version 4.0! 


DOS Error Trapping from Machine Language........Lee Meador 


I have been working on a text editor program for about three 
years now at the World Bible Translation Center. It allows us 
to edit in any two of the following languages: English, 
Russian, Greek, Hebrew. and Arabic. Hebrew and Arabic move 
from right to left across the screen, as they should. 

é 
Recently we have been making some enhancements to this 
multi-lingual text editor (called ALPHONSE) which include 
support of two disk drives (a program disk in drive 1 and a 
data disk in drive 2). But we didn't want to require the use 
of two drives. That means a routine must look on the various 
disks to see if the data is there. We can do this very handily 
by RENAMEing a certain file -- call it FILE -- and assuming 
that a DOS error means that the data isn't on that disk. Then 
we can look on other drives and finally, if it isn't found 
anywhere,. we can prompt the user to put in the data disk. Then 
we look again -- and so on, 


A problem with this is that I need to trap from assembly 
language any DOS errorswhich occur, but I want to return to the 
program if the user accidentally types the RESET key (with 
ALPHONSE it will always be accidentally). A second use for DOS 
error trapping came up because I/O errors in a disk file print 
the error message but do not change from the HIRES page to the 
text page. That makes it rather difficult to see what the 
error is -- especially for the less advanced user, who has no 
idea what is happening. 


Here is a program listing of ALPHONSE with all the insides 
removed. Where the real program would have large sections of 
code, I have instead comments that look like this: 


# === DDD =D D-DD ADHD HDD D-DD D-D 
* DO SOME ACTION WHICH IS NOT SHOWN 
# =D =D —D— DH DAD HD HDHD HDHD HDD D-DD DD 


(Of course, ALPHONSE is about 8K long and the listing is nearly 
1/2-inch thick, so this isn't the whole listing.) 


MAIN PROGRAM OUTLINE 
Here is an outline of the main program: 


MACH: GLOBAL INITIALIZATION; 
REENT: LOCAL INITIALIZATION; 
REPEAT 
READ EDITOR COMMAND; 
PROCESS EDITOR COMMAND; 
UNTIL EDITOR COMMAND = QUIT; 
END. 
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S-C MACRO ASSEMBLER LT we gieisrbes aie Ww ie 6 Cie We ane Se Soe o © 0 Sew 6 we Mae eee aewe OOOe 00 
S-C ASSEMBLER II Version BO Se eee Sw eA S SORES ESO OO CES OOD OD 
Upgrade from Version 4.0 tO MACRO... ccccccccccesvcevecccscsccccscce gale 50 
Includes Manual, Diskette with Assembler and sample programs, 
and Quick Reference Card. Call for more information. 


Source code Of Version 4.0 ON diBk..c.cccrcccccrccecccetcccseccsssee 9S Ie 00 
Fully commented, easy to understand and modify to your own tastes. 


Cross Assembler Patches fOr 6809... .ccccccccccccccccccccscsescescee gare D0 
Requires possession of Version 4.0. Enables you to develop 
programs for the Motorola 6809 CPU. (The MILL from Stellation, 
EXCEL-9 from ESD Laboratories, or the Radio Shack Color Computer.) 


Cross Assembler for GB 00 i Ss Bio ho We oreo OE WR CALS Ae SOO LLL DU 
Requires possession of Version 4.0. Enables you to develop 
programs for the Motorola 6800, 6801, and 6802 CPUs. 


AAL Quarterly DESK Go co cassie we! deravd dita se wie aha wie ote aye eww 6S we ee eee oe OOCN $15.00 
Each disk contains all the source code from three 
issues of "Apple Assembly Line’, to save you lots 
of typing and testing time. 
QD#1l: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 


Double Precision Floating Point for ApplesSoft....cccccccccccccceees 990.00 
Provides 2l-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines ‘for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer Research) ...cccccccccsceccess 905200 
Source Code for FLASH ! Runt ime Package. .ccccccccccccccccccccscccces 920.00 


Super Disk Copy III (Sensible Software) .....ceccceee (reg. $30.00) $27.00 


Program Line Editor (Neil Konzen, Synergistic Software) ......+22+.-$40.00 
(Comes on DOS 3.2 disk. I have added a second disk 
in DOS 3.3 format with a superior set of ESCAPE macros.) 


s-cC Games Disk (requires Integer BASIC) oss ses Sean ee6ewea es tueesewe e015. 00 
S-C Games Disk (compiled by FLASH!, no need for Integer BASIC).....$25.00 
Includes 4x4x4 tic-tac-toe, lo-res space war. lo-res jig-saw 
puzzle. musical memory. pentominoes, and mastermind. 


Blank DisSketteB...ccccccccrcccccccccccvccccccceee package Of 20 for $50.00 
With hub rings, bulk packaged, in plain white jackets. 


Lower -—Case Display Encoder ROM 6 6.6:5.8 e CSRas eC ow Ow 066 w os doe a 85 02D 200 
Works only Revision level 7 Apples. Replaces the encoder ROM. 
Comes with instructions. 


Diskette Mailing ProtectOrs....cccccccccccccescccceel0-99: 40 cents each 
100 or more: 25 cents each 
Corrugated folder specially designed for mailing mini-floppy 
diskettes. Fits in standard 6x9-inch envelope. (Envelopes 
5-cents each. if you need then.) 


Zip-Lock Bags (2-mil, hp & bd Eee a ie eee ere a rere ee rere ge ae eer rears 60 1t for $8.50 
(2-mil, 9 12) awe Caceseee ee M68 0 ee eae oe eae 00 for $13.00 


Books, Books, BOOKS....cccecscccccccccssecesecompare our discount prices! 
"Beneath Apple DOS", Worth & Lechner....cccccoccccveces ($19.95) $18.00 
“What's Where in the Apple", William Leubert.........( ($14.95) $14.00 
"6502 Assembly Language Programming", Leventhal......($16.99) $16.00 
"Apple Assembly Language", Don & Kurt Inman.......---($12.95) $12.00 
"MICRO on the Apple--1", includes diskette... .cccceee ($24.95'- $23.00 
“MICRO on the Apple--2", includes diskette.........- ($24.95) $23.00 
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*** S-C SOFTWARE, P. O. BOX 280300. Dallas, TX 75228 *** 
**#@ (214) 324-2050 We take Master Charge and VISA *** 
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In the global initialization we have to do four things related 
to error-trapping: 


1. Call SETUP.DOS.TABLE to copy my addresses into 
the table at $9D56 of DOS- This makes DOS come back 
to my program when any soft entry of a funny DOS 
command occurs. Just calling SETUP.DOS.TABLE will 
not really trap any errors, but it will keep DOS from 
terminating your program if a DOS error does occur 
(that usually means SYNTAX ERROR. I/O ERROR, or FILE 
NOT FOUND). 


2. Call CLEAR.ERROR to initialize the ONERR 
trapping mechanism in my program. 


3. Call ON-ERROR with the address of the 
error-handling routine in the A and Y registers (LO, 
HI). This sets up the DOS error-handling 
capabilities as if Applesoft were running and ONERR 
were set. 


4. After doing all the global initialization of 
files and such, we need to call OFF.ERROR to turn off 
the error handling that ON.ERROR set up. After 
calling OFF.ERROR any DOS error will beep and go to 
the soft entry point. (We have already set the soft 
entry point in step one to be MY.RESET.) 


In the local initialization we take care of a few more things 
that have to be done every time the program is run -- not just 
the first time. The call to OFF.ERROR cleared any error 
trapping so we can call SETUP.DOS.TABLE and CLEAR.ERROR again 
without causing any problems. 


Note that the call to LOOK.FOR-.FILE changes the error address 
so we have to call ON-ERROR with MY.ERROR again to make sure 
that an error doesn't throw us off into never-never land. 
LOOK.FOR.FILE returns the carry clear if FILE is found. Carry 
set signals that the file isn't on any available drives; in 
that case, ALPHONSE would print a message like "INSERT DATA 
DISK AND HIT ANY KEY," then wait for a key to be pushed and 
call LOOK.FOR.FILE another time. 


The main program loop is not really of interest here, but it is 
shown in the listing in skeleton form. 


SUB-PROGRAMS 


Now. how do the subroutines work? First. the one that you 
wouldn't use in your program: LOOK.FOR.FILE has to save the 
stack pointer. This is because we expect DOS errors to occur 
inside the routine. A DOS error will mess up the stack. 

Saving the stack lets us remember where we were. (By the way. 
DOS just adds things to the stack and never removes them when 
there is an error. The LOOK.FOR.FILE return addresses will not 
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Decision 
Decision Systems 


SC P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft's CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 fos Foreign Mail) 


"Apple Il is a registered trademark of the Apple Computer Co. 
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be messed up.) 


LOOK.FOR.FILE sets its own DOS error trap address. Then the 
program looks through trying to find FILE on the various slots 
and drives. It does this by printing the DOS commands 
<CTRL-D>, RENAME FILE, FILE, Sx, Dy with x and y filled in. 
Appropriate values for x are six, five, and seven; y would be 
one or two. The order in which you try the slot/drive 
combinations will determine which of two disks are chosen if 
you put two data disks in at the same time. I used a table of 
six slot/drive combinations to choose the order and positions 
to try. Notice that before printing the DOS RENAME command, I 
had to check to see if there was a disk card in the slot. 
Choosing a slot without a disk card in it for a DOS command 
will cause DOS to hang when you try the next DOS command with a 
different slot. DOS is waiting for the last drive to quit 
running. Little does DOS know that an empty slot always seems 
to be running (to DOS at least). 


If the DOS RENAME command fails or there is no disk card in the 
slot, LOOK.FOR.FILE will jump to LOOK.ERR to loop and try the 
next slot/drive. If it runs out of slot/drives the program 
returns with carry set to indicate FILE was not found. Carry 
Clear indicates that the last-used drive has FILE on it. 


There are several routines you might want to copy as is to your 
program. Calling them takes care of error trapping and reset 
trapping. 


SETUP.DOS.TABLE: copies MY.TABLE into DOS to jump to my 
program on any DOS error or RESET. Unfortunately, at this 
point you can't tell them apart. 


ON.ERROR: sets the error address to the value in the A, Y (LO, 
HI) registers. When a DOS error occurs after ON.ERROR has been 
called, DOS will jump to this address with the error number in 
the X register. All other registers will have been changed. 


OFF.ERROR: turns off the error trapping and resets DOS to the 
state it was in before ON-ERROR was first called. SAVE.AAB6 is 
used to keep track of which BASIC language DOS thinks was 
active. Restoring AAB6 before exiting your program will help 
DOS keep things sorted out. Calling OFF.ERROR restores AAB6. 
(By the way. while ON-ERROR is active, DOS thinks that 
Applesoft is currently running a program and that there has 
been an ONERR statement. Zero page locations $D8, $76. and $33 
are used for this.) 


CLEAR.ERROR: call this the first thing in your program to set 
up the flags used by ON-ERROR and OFF.ERROR. 


Note: MY.RESET just reenters the program loop if someone types 
the RESET key. That makes it a null key. MY.ERROR should be 
looked at to see how the DOS error message comes back to you. 
You can use the message to print various messages depending 
upon what iS wrong. Or, you can take various actions depending 
upog the error message. Pages 114-115 of the DOS manual show 
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what the various error numbers are that come back in the X 


0810- 20 58 FC JSR HOME. TEXT CLR TXT SCR 
#2 == De DH === Da D=D 
® DO INITIALIZE PROCESSING 
$= === D-DD HDHD =D D= =D 
JSR OFF.ERROR ON ERR TURNED OFF 


0813- 20 70 08 


0816- 20 44 08 REENT JSR SETUP.DOS.TABLE 


0819- 20 h3 0 JSR CLEAR.ERROR NO ON ERR 

081C- 20 0 - 10 JSR LOOK .FOR.FILE 

O81F- 90 OD BCC LOAD.FILE 

0821- AY 3B LDA #MY .ERROR SET ERROR 
0823- AO 08 LDY /MY.ERROR -- TO MY.ERROR 


0825- 20 50 08 


R 
0828- 20 58 FC JSR HOME.TEXT CLEAR SCRN 


8 === DD DDH D-DD =D 
® PRINT "INSERT CORRECT DISK®" 
#~5- === === == DDH = 
082B- 4C 1C 08 JMP .10 TRY AGAIN TO FIND TEXT.DIR 
LOAD .FILE ; 
082E- A9 3B LDA #MY.ERROR FIX ERROR’ HANDLER 
0830- Ad 08 LDY /MY.ERROR 


E 
0832- 20 50 08 JSR ON.ERROR 


register. 
000 -OR $803 
010 Benne nnn nnn nnn ne 
020 # 
070 : ALPHONSE - MULTI-LINGUAL TEXT EDITOR 
050 * Chopped up to show ERROR trapping 
060 * ala sppiesete ONERR command. 
oie # NOTE: There is no RESUME but 
080 * you are able to easily pick 
090 # up DOS errors and handle them 
100 # while ateenr ine the RESET 
110 # (on AutoStart ROM). 
120 # 
Le # by Lee Meador 
140 # 
150 ® MACH - Main program entry 
160 # REENT- Program re-entry 
10 # ULOOP- Main program Loop 
1 # MY.RESET- handle RESET key pushed 
190 # MY .ERROR- default error handler 
200 # END - Exit to BASIC 
2 ® SETUP.DOS.TABLE- hook in RESET trapping 
220 # ON.ERROR - set error trap 
3 # OFF .ERROR- kill error nee 
2 ® CLEAR.ERROR- init error f age 
250 # LOOK .FOR.FILE- find S,D of FILE 
= MY.TABLE - copied into DOS table 
ON We cesta ase ee 
9D56- 290 DOS.TABLE .EQ $9D56 
FC58- 300 HOME.TEXT .EQ $FC58 
0000- 33 ™P1 EQ PAGE 0 
330 § 
3 # THIS IS THE MAIN ENTRY POINT 
? . FOR ALPHONSE. 
Bee eee 
0803—- 20 44 08 35 MACH JSR SETUP.DOS.TABLE 
0806- 20 79 08 2 JSR CLEAR.ERROR NO ONERR 
0809— A9 3 0 LDA #MY.ERROR THEN SET IT 
O80D- 20 50 08 a JSR ON.ERROR 
4 
\ 
rm 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


OO CAO EW A 2 OO OA QUT EWN @ OU ONION SUA = —_ —_ —_ 
DO OOOO OOOO OO OO OCOD OGOGOCOOCOCOSOO elelelejlololelojolelolojolojojejelofolelolejosea) 


#- >= = == === D-DD HDD =D 
# THE REST OF INITIALIZING 
$= do = HDHD HD =D HDHD A= =D 


ee cee eh me ee eh weed ee es ee en wre ee we cee te eth eet oe ee ee cB ch we ee cee wee ec ce ce ce ch ee ce we ceed ee ed ed ed wed ed ca td ed eh ek ed wed ce cl ch ed eed ed ek ed lh ed ed ed ed ot od ot ot od ot ot ot ot ed 


4A 
) 
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ULOOP 

Be a a a a a a a DDH DD =D HD 
* MAIN PROGRAM LOOP DOES EACH 

* COMMAND TYPED 

* EXIT COMMAND JUMPS TO "END® 

Ba = = a a a a a a DD DDH DD =D 


0835- 4C 35 08 JMP ULOOP .»» LOOP IF UNDEF 


Se cceeee oe sieecocwmeconeooeeeeonmen = 
# 
# ROUTINE TO HANDLE USER HITTING 
# RESET. 7SHANDLED IN 985-008 
# FIXES N $3D3 1.) 

; : NO HOOKS 10 CHANGE’ AND’ FIX BACK 
a a oc ee ee en aa ne re aI AO 
MY .RESET 
$n ae Dae De DD ae ee ee De De De De >»=> 
# RESET POINTERS AND HERES PAGED 
8 >= >=) == == de =e Do =e =e = =D => 

0838- 4C 35 08 JMP ULOOP 


@ 
& 
® MY GENERAL ERROR HANDLER JUST 
® PRINTS "ERROR NOTE ean AND 

# THE NUMBER FOR THE ERROR THEN 
; EXITS TO WHATEVER BASIC WAS 

& 
# 


2000 # RUNNING BEFORE. 
2010 
2020 #----~------------------~--------- 
2030 MY.ERROR 
O83B- 8A 20h0 TXA SAVE ERR NUM 
083C- 48 2050 PHA 
2060 #—>->->->- == - == = === =D 


2070 * HOME SCREEN AND PRINT THE 

2080 ® MESSAGE "ERROR NUMBER " 

2090 8 d= d= do ae am am Dm ae De a ea aD ==> 
083D- 68 2100 PLA ERR NUMBER 

2110 8->=-d= d= d= = ae DD Da a De De DD =D 

2120 * PRINT ACC AS DECIMAL NUMBER 

2130 * FOLLOWED BY A <RETURN> 


2190 #->=-d->—d=- d= d= d= == =D =D HD HDHD ED 
083E- 20 70 08 2150 END JSR OFF.ERROR FIX UP $AAB6: 
0841- 4C D3 03 A 4 ‘ P $3D3 HARD EXIT RESTORS DOS.TABLE 


2 
2190 * COPY MY ADDRESSES INTO THE DOS 
2200 ; TABLE OF JUMPS (AT $9D56). 


2210 
2220 Bemm nnn mmm nnn nnn nn ener nn necn= 
2230 SETUP.DOS.TABLE 
O844- A2 OC 2240 LDX #12 12 BYTES 
O846- BD C6 08 2250 .10 LDA MY.TABLE-1,X 
O849- 9D 55 9D 2260 STA DOS.TABLE-1,X 
O84C- CA 2270 DE 
OS4D= DO FT 2250 BNE .10 
O84F- 60 2290 
2300 Bemm mmm ewe new nnn nn nnn e nee en ener a= 
2310 
‘ An DOS ERROR SETUP/RESET 
2340 CALL CLEAR.ERROR AT START OF 
2350 Cee aL TO SET UP FLAG 
2360 ALSO OK AFTER OFF.ERROR 
2370 C iL ON.ERROR WITH A,Y HOLDIN 
2380 THE ADDRESS YOU WANT TO JUMP 


S. 
CALL OFF.ERROR TO CANCEL ERROR 
TRAPPING AND REVERT TO NORMAL 
ERROR MSG AND JUMP TO BASIC 


WHEN THE ERROR ROUTINE IS 
CALLED (ON AN ERROR) THE X 
REGISTER HOLDS THE ERROR 
NUMBER AS LISTED P 114-115 OF 
THE DOS MANUAL. 


NO 
© 
oO 
See eee se eeaeagee ee 2228 8B 
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2500 ® AN ERROR WILL CAUSE THE STACK 
2510 * TO BE MESSED UP. SO. SAVE IT 
2520 # WHEN YOU EXPECT ERRORS. 
2530 # : 
250 nee eo ee ee eee 
2550 ON.ERROR 
0850- 8D 5A 9D 2560 STA DOS.TABLE+4 
0853- 8C 5B 9D 2570 STY DOS.TABLE+5 
0856— AD 81 08 2580 LDA SAVE. AAB6 48K ONLY 
0859- DO 0 2590 BNE .10 
O85B- AE B6 AA 2600 LDX $AAB6 4N8K ONLY !1199! 
O85E- CA 2610 DEX 
O85F- 8E 81 08 2620 STX SAVE. AAB6 48K ONLY 
0862- AQ 40 2630 .10 LDA #$40 PRETEND AS(]) 
O864- 8D B6 AA 2640 STA $AAB6 48K ONLY 
0867- OA 2650 ASL ) 
0868- 85 D8 2660 STA $D8 ONERR ACTIVE 
Op ea gh ag «= BRS SrA $76 £0?3) RUNNING 
O86D- 85 a8 2690 STA 328 Papa rN 
O86F- 60 2700 RTS 
2710 OFF.ERROR 
oR7o- AE 81 08 3120 LDX SAVE. AAB6 
0873=- FO O04 2730 BEQ CLEAR.ERROR ZERO->NEVER SET 
0875- E8 2740 INX 
0876- 8E B6 AA 2750 STX $AAB6 48K ONLY 
2760 CLEAR.ERROR 
0879=- AQ 00 2770 LDA #0 CLEAR FLAGS 
087B- 8D 81 08 2780 STA SAVE. AAB6 
O87E- 85 D8 2790 STA $D8 CLEAR ONERR FLAG 
0880- 60 2300 RTS 
0881- 00 2620 § SAVE.AAB6 .HS 00 FLAG 
200 
eee : LOOK FOR FILE ON VARIOUS DRIVES 
2870 # RETURNS CARRY CLEAR IF FOUND 
2880 * AND SET IF NOT. USES RENAME 
2890 * FILE,FILE TO SEE IF FILE EXISTS 
2900 # 
2910 fawn een ee 
2920 LOOK.FOR.FILE 
0882- BA 2930 TSX SAVE STACK 
0883- 8E BF 08 29ho0 STX LOOK.STACK 
0886- AQ B 2950 LDA #LOOK.ERR 
O888- AO 0 2960 LDY /LOOK.ERR 
O88A- 20 50 08 2970 JSR ON.ERROR 
O88D- AX 00 2980 LDA #0 TABLE OFFSET 
O88F- 8D BE 08 2990 2 STA LOOK.CNT 
010 LOOK.LOOP 
0892- AE BE 08 3020 LDX LOOK.CNT 
0895- EC BD 08 3030 CPX LOOK.MAX (¢ OF TRYS) 
0898~ BO 18 3040 BCS .99 FAIL EXIT 
3050 8->-d=d= d= d= 5 = = d= de ee De =D => 
3060 # CHECK FOR DISK CARD IN SLOT 
3070 # SO THINGS WON'T HANG. FIRST, 
080 ® LOAD THE ACC WITH THE SLOT 
090 # THEN ... 
aice $a >= = oo = =e ee = DD = =D =D =D =D 
O89A- 3 0 glee AND rie SLOT # 
089c- 09 Cc 130 ORA #§C 
O89E- 85 01 3140 STA TMP1+1 
O8A0- AQ 00 3150 LDA #0 
O8A2- 85 00 3160 STA TMP1 TP1=CS00 
3170 # TMP1 IS SLOT ADDRESS 
3180 # CHECK BYTES 7,5,3,1 FOR MATCH 
3190 # AS AUTO MONITOR DOES 
O8A4= AO 07 200 LDY #$07 SAME AS MONITOR ($FABA AUTO) 
O8A6- B1 00 210 .10 LDA (TMP1),Y FETCH SLOT BYT 
O8A8- D9 BF 08 3220 CMP DISKID-1,Y IS IT DISE?™ 
O8AB- DO OA 3230 BNE LOOK.ERR NOPE... 
O8AD- 88 33 0 DEY DOWN TWO 
O8AE- 88 250 DEY 
O8AF- 10 F5 3260 BPL .10 AND LOOP 
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3270 THERE IS A DISK CARD THERE 
290 8->d-d—d— d= = = = DD DD =D =D DED 


3300 ® PRINT OUT CTRL-D THEN "RENAME 
3310 ® FILE,FILE,SX,DX" FILLING IN 
3320 ® xX ACCORDING tO THE VALUE OF 
3330 # LOOK.CNT 
3390 #->->->->=->->->- === d= DD =D =D 

O8B1- 18 3350 CLC FO T 

O8B2- AE BF 08 3360 99 LDX LOOK.STACK 

O8B5- 9A 70 TXS RESTORE STACK 

O8B6- 60 3380 ‘ RTS 
300 # COME HERE IF DOS COMMAND FAILS 
3420 LOOK.ERR 

08B7- EE BE 08 3430 C LOOK.CNT 

O8BA- 4C 92 08 340 JMP LOOK.LOOP 

O8BD- 06 3460 LOOK.MAX .DA #6 

O8BE- 3470 LOOK.CNT  .BS 1 

O8BF- 3480 LOOK.STACK .BS 1 

oe 8 FF 90 

O8Cb- 3C 3500 DISKID -HS 20FFOOFFO3FF3C MATCHES DISK CARD+1 TO 7 
3520 # 
3530 * TABLE OF ERR/RESET ADDRESSES 
3265 Po eseetesels soso See selcecls soe 

O8C7~ 38 08 3560 MY.TABLE .DA MY.RESET 

08C9~ 38 08 3570 -DA MY.RESET 

O8CB- 3B 08 33 0 .DA MY ERROR 

O8CD- 00 EO 590 “DA $E£000 

O8CF- 38 08 3600 .DA MY.RESET 

O8D1- 38 08 3610 .DA MY.RESET 
3620 .EN 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


> 8-BIT RESOLUTION » ELIMINATES NEED TO WAIT FOR A/D CON- 
VERSION 


> ON BOARD MEMORY- > AID PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 

» FAST CONVERSION - > FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 


S d ] MASTER CHARGE & VISA WELCOME 
ee your dealer or contact - re = 
APPLIED ENGINEERING (214) 492-2027 E-) 


P ms | 
P.O. BOX 470301 se 7:00 AM - 11:00 PM 7 DAYS A WEEK 


DALLAS. TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Improving the Epson Controller.........Peter G. Bartlett, Jr. 


[ I recently bought an NEC PC-8023 dot matrix printer, which has 
fabulous features. The store sold me an Epson controller to run 
it, assuring me it was all I needed. Naturally, they were 
wrong. To get all features, just as with the Epson printer, you 
need to be able to send 8-bit characters. I figured out how, 
and was just about to write an article about it. when the 
following one came from Peter Bartlett of Chicago, Illinois. 
(Bob Sander-Cederlof) ] 


As you may know. the Epson MX-80 printer is somewhat hamstrung 
by the Epson Controller. Certain features, such as the "TRS-80" 
graphics character set, are not available. You can buy the 
Graftrax kit to enable dot graphics, but these built-in 
character graphics are still inaccessible. 


The problem is in the card Epson makes to interface its line of 
printers with the Apple. (The problem is not present if you use 
a non-Epson card.) Hardware on the Epson controller card masks 
out the high-order bit, eliminating the ability to access the 
standard graphics characters and some of the dot graphics 
capabilities. 


Epson's reasoning is that the Apple only sends characters with 
the high-bit set, so Epson has hardware on the card to mask out 
that bit. That way the normal characters print as they should. 


If Epson had masked out the high bit in their printer driver 
routine instead, then machine language programmers like us could 
have accessed all the features of the printer. We could bypass . 
the printer driver and work directly with the printer I/O port. 


Fortunately, the card has jumpers that can be changed and the 
printer driver is on an EPROM that can be changed. 


So you will need a soldering iron, an EPROM blaster, and an 
erased 2708 EPROM. [ The EPROM Blaster from Apparat can blow 
2708's. I don't believe the Mountain Hardware ROMWRITER can. ] 


On the Epson interface card, the jumper marked “P4" should be 
removed and installed on "M4" instead. This jumper are directly 
underneath the EPROM and are labelled. [ Ignore the three 
jumpers on the right side of the EPROM. ] This fix is not 
documented, although you can see it in the Schematic Drawing of 
the card. I called Epson on the phone, and they told me about 
it. With the jumper moved to M4, the high-bit is transmitted 
correctly. 


BUT!!! Now normal characters do not print normally! Instead, 
you get the graphics characters! Okay, we need to modify the 
program inside the EPROM. At location $C120 (assuming the card 
is in slot 1) you will find an instruction "AND #S7F". This 
clears the high-bit for processing control codes only. We need 
to move this instruction to $C1l12, so that the hihg-bit is 
cleared for transmitted codes also. Here is a listing of the 
BEFORE and AFTER programs, with the moved instruction starred. 
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1000 Waaee o eee sews ace ceed ceo. 
1010 . CHANGES TO EPSON CONTROLLER 2708 ROM 
1030 #---AS IT NOW eae a eran 
10 0 -OR crit 
C111- 68 1020 PLA 
C112- a8 1070 TAY 
C113- CA 1080 DEX 
C114- 9A 1090 TXS 
C115- 68 1100 PLA 
ao a 
C118- 90 3 1130 BCC $C152 
C11A- BD B8 05 1180 LDA EBB X 
Cire g6 12 1428 BPL. $138 
a A 
SIE 6B IG 1G MMB agi steze orF srox 
1190 #---AS IT NEEDS TO BE------~---~- 
es 
ci 68 2 HE 
a AND #$7F 
c11g- 2 1230 AND #37 STRIP OFF SIGN BIT 
C115- CA 1250 DEX 
C116- 9A 1260 TXS 
c1q- 8 1270 PLA 
C118- 28 1280 PLP 
CHAn 90 36 1500 Bec $c162 
C11C- BD rt 05 1310 LDA ay: X 
C11F- 10 17 1320 BPL $C138 
2 TYA 
C122- hg 30 1380 EOR #$30 


| NEW UTILITY FOR THE S-C ASM 
Do You Like Having Your Labels, Opcodes And Comments Lined Up For Readability, But Don’t Want To Give Up 
Free Format Entry. Or Did You Set Your Tabs For 8 Char Labels And Found You Needed A Few Longer Ones? Now 
There's No Need To Manually Edit Just To Lineup Those Columns. SC. TAB Is A Source Formatting Utility For Use 
With The S-C Assembler (4.0). You Simply Specify The Colusgn Nusbers For Opcodes And Comments And SC. TAB Does 
The Rest. A Two-Pass Operation Insures You That There Are No Confilcts Before Any Changes Are Actually Made. 
Should A Problem Arrise Then The Offending Line And The Tab Settings Are Displayed For Your Inspection. The 
User Can Limit Changes To Any Portion Of Source. SC. TAB Is Fast Since Its 108% Machine Language. 


SC. TAB Program Diskette & User Manual: $15.08 
INTRODUCTORY OFFER! 
For A Limited Time SC. TAB Is Available At A Special Introductory Price When Purchased With Both Of Our Other 
S-C Assembler Utilities. 
# SC.XREF : Generates Label Cross Reference Tabels For Complete Source Documentation 
# SC.G6SR : A Global Search-fnd-Replace Eliminates Tedious Manual Renaming Of Labels 
Norsally, All Three Utilities Would Cost $55.08. Buy Them Now And Save $18.28 


SC Utility Package: $45.0 


All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -WARE 
41 Ralph Road 
West Orange NJ 087052 
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That fix in the program will clear the high-bit off every 
character sent via the printer driver to the printer. We are 
back where we started. Except that now the clever programmer 
can send characters directly to the printer, bypassing the EPROM 
resident driver. Here is how to send one character directly to 
the printer: 

OUTPUT STA $C090 Assuming slot 1 

ol BIT #C1Cl Character picked up by printer? 

BMI .1 No, keep testing 

I have tried everything above, and it all works perfectly. I 
hope it proves useful to lots of you AAL readers. 


FLASH! 
an Integer BASIC Compiler 


by Laumer Research 
1832 School Rd. 
Carrollton, Texas 75006 


Compiles Integer BASIC to fast Machine language which runs 
on any Apple II or Apple II Plus, disk or cassette, 
16k to 48k with or without Integer BASIC. 


28 new statements and 3 new functions to extend the language 
including DATA, READ, hex I/0, strings to 32767 bytes, 
16-bit PEEKs and POKEs, CHR$, HOME, NORMAL, INVERSE, 

HPLOT, DRAW, XDRAW and much more! 


Makes BRUN files positioned anywhere you want in memory. 


Assembly language listing and file output compatible 
with S-C Assembler II! 


Introductory price $65.00 for FLASH! compiler, 

$20.00 for runtime package source code. 

(Prices good until May 1, 1982) 

(Source code requires S-C Assembler II 4.0 and FLASH!) 


FLASH! can be used on a 48k Apple II or Apple II Plus with 
Integer BASIC in ROM or language card. Runs under DOS 3.3 on 
one disk drive. 
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mK THE __ HIEROGRAPHIC TRANSPORT 


IHTER GRAPHICS SOF TUAMRE 


- Fikt WIND CONTRO OF HI-RES SCREEN 

- POSTAGE STMeF TO POSTER SIZE PICTURES 
- VAR PALE LEFT TRRGIA OF PICTURE 

- PILCTUTRES PRIATED POSITIVE OR NEGATIVE 
- AORTA. OR SO DEGREE ROTAT tO 

- PICTURE FILES tORDED AT TOUCH OF FR KEY 
- PICTURE SIZE INDICATED SEFORE PRIOT ING 
- SPEC IPL WORRAE MLOLS USE FROM BRASIL 

- COOPRESSED OR WORT PRINT CRAEIT WKX<-78> 


ou 

. | ‘IC iio 
get 
G) NU 


FOR 46K APPLE II/APPLE II PLUS WITH EPSON MX-70/80/100 PRINTER (RZ-BO MUST HAVE GRAFTRAX 80 GRAPHICS OPTION) 


PU Il / PA 1) Pe Oe TRS LE CUTER, Ie. 
CPURN 1-70/00/ 106 AMD GRAPWTRAS GO GRAPHICS AOE TRADERS OF CPU SERICA, I. 


THE CLONE KIT 


CLONE KIT IS A MULTI-PURPOSE BIT COPIER FOR THE APPLE II COMPUTER, 
BIVING YOU THE MEANS TO PROTECT YOUR INVESTMENT IN SOFTWARE BY 
BACKING UP MOST OF YOUR “PROTECTED” DISKETTES. 


WITH CLONE KIT YOU CAN: 
— BACKUP DISKETTES USING SYNCHRONIZED TRACKS AS PROTECTION 
- BACKUP DISKETTES USING A MODIFIED DOS 
— COPY ONLY SELECTED TRACKS (USEFUL TO RESTORE A “BLOWN” DOS) 
- MAKE A SINGLE DRIVE BACKUP 
— DUPLICATE DISKS USING SPECIAL TIMING FOR PROTECTION 
~ PROVIDES EXTENDED INFORMATION FOR VIEWING THE DISKETTE STRUCTURE 
- COPY PASCAL AND CP/M DISKETTES QUICKLY AND EASILY 
WORKS WITH BOTH 13 AND 16 SECTOR DISKETTES 
WRITE OR CALL (214) 259-6482 OR (214) 259-5196 


HIEROBRAPHIC TRANSPORT ... 839.95 (629.95 IF ORDERED BEFORE 2/1/62) 
THE CLONE KIT eeeeoaoeeaoseaweaee @ 649.95 


DEALER INQUIRIES INVITED 


Crrpoks, 4.0. 


HSSILIRTES - P.O. BOX 401462 — GARLAND, TEXAS 75040 
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Even Faster PET MCS 6.66. 66:66 6b SOA ob ewe KOO Char Les Putney 
[ Charlie is a long-time friend and subscriber in Ireland ] 


Bob, I wanted to answer your challenge in the Ocotber 198] AAL 
for some time, but this is the first chance I had. You sifted 
out the primes in 690 milliseconds, and challenged readers to 
beat your time. I did it! 


I increased the speed by uSing a faster algorithm, and by using 
some self-modifying code in the loops. I know self-modifying 
code is dangerous, and a NO-NO. but it amounts to about 50 
milliseconds improvement. 


The algorithm changes are an even greater factor. The main 
ideas for the sieve are: 


1. Only check odd numbers 
2. Get next increment from the prime array. 
This means you only knock out primes. 
3. Start knocking out at P°2. That is, 
if prime found is 3. start at 9. 
4. Increment the knock-out index by 2*P. 
This avoids knocking out even numbers. 
5. Stop at the square-root of the maximum number. 


Your algorithm did all the above except 3 and 4. 


With these routines, a generation takes 330 milliseconds. This 
is over twice as fast as yours! 


You could still shave a little time off by optimizing the square 
routine, and even including it inline since it is only called 
from one place. 


I'll grant you that this is not the same algorithm, but the goal 
is to find primes fast. I know throw down the glove for the 
next challenger! 


10 TEXT : HOME : PRINT "CHARLES PUTNEY'S FASTER PRIME GENERATOR 
20 VTAB 10: HTAB 15: PRINT "LOADING. . .*® 

O HGR : TEXT 

0 D$ = TUE PRINT D$"BLOAD B.PUTNEY'S PRIMES" 


50 HOME B ye ar ae 10; PRINT an ANY KEY TO START® 
O POKE 49168,0 ee tee BOO 49168,0 

0 POKE 49232, 0; POKE 9239 
90 CALL 


2 
95 roe P18 As 8195 TO oe STEP 2: IF PEEK (A) = 0 THEN PRINT 
= ’ ; 


100 REM PRIME TESTER 


110 REM $ CHARLES H. PUTNEY 

120 REM 18 QUINNS ROAD ; 
130 REM SHANKILL 

140 REM CO. DUBLIN 

150 REM IRELAND 

160 REM TIME FOR 100 RUNS = 42 SECONDS 
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1000 .OR $8000 SAFELY OUT OF WAY 
1010 . “TF B.PUTNEY'S PRIMES 
2000- 1030 BASE EQ $2000 BASE OF PRIME ARRAY 
FF3A- 10 0 BEEP .EQ $FF3A BEEP THE SPEAKER 
1080 . MAIN CALLING ROUTINE 
8000- A9 64 1080 MAIN LDA #100 DO 100 TIMES SO WE CAN MEASURE 
8002- 8D BA 80 1090 STA COUNT | THE TIME IT TAKES 
8005- 20 3A FF 1100 JSR BEEP ANNOUNCE START 
8008- 20 ic 80 1110 1 JSR ZERO CLEAR ARRAY 
Gob- 83 BE go 1139 © Sth ifr ser sranrinc vaLvE 
Bie: GE ER 80 tig BRE GIT ager coum 
8018- 20 3A FF 1170 JSR BEEP SAY WE'RE DONE 
01B- 60 1180 , RTS 
1 nn nn no nas nada Mae mew ae were a 
1200 ® ROUTINE TO ZERO MEMORY 
1210 . FROM $2000 TO $6000 
801C- AQ 01 1230 ZERO LDA #BASE+1 START AT $2001 
O1E- 8D 2C 80 1240 ST MODIFY OUR STORE 
Boas. £8 30 Bo 13ee LDA / pase 
8026 AQ 00 1270 LDA #$00 GET A ZERO 
8028- AA 1280 TAX SET INDEX 
8029- AO 40 1290 LDY {$40 NUMBER OF PAGES 
802B- 9D FF FF 1300 .1 STA $FFFF,X MODIFIED AS WE GO 
B02E- EB 1310 INK EVERY ODD LOCATION 
030- DO F9 1330 BNE .1 NOT DONE 
80 2- BE 80 40 INC = 142 NEXT PAGE 
g038- DO F3 1320 BNE .1 NOT YET 
8038- 60 1379 . RTS 
1390 a PRIME ROUTINE 
1h00 # SETS ARRAY STARTING AT BASE 
1410 # TO $FF IF NUMBER IS NOT PRIME 
1420 # CHECKS ONLY ODD NUMBERS > 3 
1430 e INC = INCREMENT OF KNOCKOUT 
14 0 . N = KNOCKOUT VARIABLE 
8039- AD B8 80 iu20 PRIME LDA START 
03C- OA 1470 ASL INC = START # 2 
O3D- 8D B9 80 1480 STA INC 
80h0- 20 7F 80 1490 JSR SQUARE SETN=N*N 
8043- 18 1500 CLC ADD BASE TO N 
BONT= Oo Oo” teas ADC. #BASE 
Box - AA 1530 TAX KEEP LOW ORDER PART IN X 
O4A- AQ 00 1540 LDA #0 N+1 TO ZERO 
804C- 8D 5B 80 1550 STA N+1 
BOSD. Ap 2p oO 1208 ADC /BASE 
oe oar an ih 
Boro AQ FF 1600 LOOP LDA a FLAG AS NOT PRIME 
BODA- 9p FF FF 1610 N STA $F FFF , X REMEMBER THAT N IS REALLY AT N+1 
= = + 
805E- 8A 16 30 TXA N=N+INC 
Robe can ?  teee TAX 
8063- 90 F3 igéo BCC LOOP DONT'T BOTHER TO ADD, NO CARRY 
ISEB oc oo 183 BE yao TNO Heal one 
- + 
8069- CO 60 190 CPY /BASE+$4000 IF IS GREATER THAN $6000 
806B- 90 EB _—-1700 BCC LOOP NO. REPEAT 
806D- AE B8 80 1710 LDX START | GET OUR NEXT KNOCKOUT 
8071- E8 1730 ° INX START = START + 
8072- 30 OA 1740 BMI .2 WE'RE DONE IF 5>87F 
8074- BD 00 20 1790 LDA BASE.X GET A POSSIBLE PRIME 
O77 - DO F c He 0 BNE ed pt THIS ONE HAS BEEN KNOCKED OUT 
807C- FO BB 1780 BEQ PRIME .. ALWAYS 
807E- 60 1790 .2 RTS 
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1800 #-----------------~--- ~~ 
1810 # SQUARE ROUTINE 
1820 # TAKES SQUARE OF NUMBER 
1830 # IN START (ONE BYTE) AND 
1840 ® PUTS RESULT IN N+1 (LOW) 
1830 # AND N+2 (HIGH) 
O7F- i 00 1 0 SQUARE LDA #$00 
081- B 80 1880 STA N+1 CLEAR N 
O84- 8D 5c 80 1 90 STA N+e 
8087- 8D BC 80 1900 STA MULT+1 AND MULTIPLIER HIGH 
80 A- AD B8 80 1910 LDA START 
O8D- 8D BB 80 1920 STA MULT MULT LOW = START 
8090- 8D BD 80 1930 STA SHCNT SHIFT COUNTER 
8093- A2 08 1940 LDX #$08 EIGHT SHIFTS 
B09R- 6E BD 80 1920 1 ROR SHCNT GET LS BIT IN CARRY 
098- 90 13 1960 BCC .2 DON'T ADD THIS TIME 
O9A- 18 1979 CLC N = N + MULT 
OOB- 5B 80 1980 LDA N+1 
O9E- 6D BB 80 1990 ADC MULT 
OA1- 8D 5B 80 2000 STA N+1 
BOA4=- AD 5C 80 2010 LDA N+2 
80A7- 6D BC 80 2020 ADC MULT+1 
80AA- 8D 5C 80 2030 STA N+2 
8OAD- 18 2040 .2 CLC SHIFT MULT (BOTH BYTES) 
80AE- 2E BB 80 2050 ROL MULT 
80B1- 2E BC 80 2060 ROL MULT+1 
80B4- CA 2070 DEX 
80B5- DO DE 2080 BNE .1 MORE BITS ? 
80B7- 60 2090 RTS 
80B8- 00 2100 START .DA ##-® STARTING KNOCKOUT 
80B9- 00 2110 INC DA #*-# INCREMENT FOR KNOCKOUT 
80BA- 00 2120 COUNT -DA erg COUNT FOR 100 TIMES LOOP 
OBB- 00 00 2130 MUL - 
OBD- 00 arty SHCNT .DA ##-# SHIFT COUNT MULTIPLIER 


WHAT, ANOTHER IMPROVEMENT ? 
Yes' DISASM The Intelligent Disassembler For The APPLE Has Been Enhanced With More Features Making It One 
Of The Most Powerful Utilities Of Its Kind. DISASM Converts 6582 Machine Code Into Meaningful, Symbolic 
Source. The Resultant Text File Can Be Used With Any Of The Most Popular Assemblers.  DISASH Is Ar 
Invaluable Aid For Understanding And Modifying Machine Language Programs. Here Are The Specs: 


DISASM (VERSION 2.2) 

# Selectable output formats are directly compatable with DOS ToolKit, LISA and S-C (4.@) Assembiers. # 100% 
machine language for fast operation. # Auto-prompting for easy use. # Operates on either the APPLE II or 
APPLE II Plus. # Labels automatically assigned as Pg Zero, External or Internal. # Labels and addresses are 
sorted for user convenience. # ORIGIN and EQUATE pseudo-ops provided. # Source segmentation after JMP and 
RTS allows for easier reading and understanding. # No restriction on disassembled block length (other thar 
RAM or Assesbler limitations). | # Correctly disassembles displaced object code (The program being 
disasseabled doesn’t have to reside in the memory space in which it executes). # User defined Label Name 
Table replaces arbitrary label assignments (External, Pg Zero and even Internal labels become acre 
weaningful, e.g. JSR COUT, LDA WNDTOP. The use of the Name Table is optional. # Monitor ROM Label Name 
Table is included with over 188 of the most commonly used subroutine labels. Label table SOURCE is also 
provided so you can extend and customize it to your om needs. # Multiple data tables with user defined 
format may be intermixed with instructions. # NEW! A FULL Cross-Reference provides a complete table (to 
screen or printer) grouped by referenced address type. # NEW ' fA SINGLE Cross-Reference feature searches 
through the object code for a single user-specified address. 


DISASM (2.2) Program Diskette & User Manual: $38.08 Upgrade Kit for previous purchasers of DISAGM: $12.50 
All shipments within continental USA via First-Class mail Foreign Orders: Add $3.08 for Air Mail 


RAK -WA'RE 
41 Ralph Road 
West Orange NJ @7052 
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Printer Handler with FIFO Buffer.......cccccceeedim Kassel 
[ Jim Kassel is a subscriber from St. Paul, Minnesota. ] 


Before I get on with technical discussions, first let me say 
that I have had a ball using S-C Assembler II Version 4.0. It 
definitely has earned a place on the list of "The Greatest 
Things Since Sliced Bread." My current version incorporates 
the block move and copy feature described in the December '80 
and January '81 issues of AAL which have been a welcome 
enhancement. 


Now...on with the article, about a super simple programming 
technique that I have used extensively. I am a hardware logic 
designer by trade and before the introduction of First In-First 
Out (FIFO) memory chips, designers had to implement that 
function using an input address up-counter, an output address 
up-counter, and an up/down counter to determine character 
count. Now that the FIFO chips are available, they are still a 
bit expensive for home computer use. By using the old counter 
method implemented in software, not only is the FIFO free but 
also extrememly expandable in size (within the bounds of the 
computer memory, of course). 


I am going to give a little background into the necessity. in 
my case, for using this technique. I feel that the problem I 
experienced may be interesting reading to others who may have 
had similar occurrences. 


I waS writing an assembly language program that would allow my 
Apple II to become a terminal. using the Hayes Micromodem II 
and Epson MX-80 printer/Orange Micro Grappler interface card. 


For the sake of versatility I would have preferred to perform 
operations like JSR $Cx00 (x = slot number) when transferring 
data with these devices. However. it became apparent that I 
would have to bypass the firmware on the other interface cards. 
This was especially true with the printer interface card. 
Because the printer takes 1-2 seconds to print out a line of 
characters, the interface becomes unavailable for storage. 
Since the modem wants to supply characters at a rate of up to 
30 cps, at least that many characters were being “dropped on 
the floor" while the printer interface card kept program 
control. 


I finally had to get the schematics and/or firmware 
disassemblies of the other interface cards. From them I 
figured out the addresses of, and the methods of communications 
for, the various control, data, and (most important) status 
registers. This allowed me to check for printer busy, modem 
transmit register not yet empty and modem receive register not 
yet full. Now I could do other things when no data could be 
transferred. No longer would I have to be a slave to the 
equipment that is used for support! 


The only other problem- then, was to be able to save the print 


characters in a FIFO print buffer so they would not be 
forgetten while the printer was busy printing the previous line 
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of characters. In my version I allow a whole page of memory 
($94) to be used for the buffer space. As long as there is not 
a horribly long burst of received carriage returns (the slowest 
printer operation), 256 locations is more than ddequate because 
the MX-80 prints at least twice as fast as the modem data rate, 
Plus non-control characters are transferred into the printer 
line buffer much faster than incoming modem characters and the 
FIFO almost always stays empty because of this. 


As characters arrive from the modem they are placed into the 
FIFO (by executing a JSR PRINT.FIFO.INPUT), then the input 
index (PBII) and the character counter (PBCC) are incremented. 
Whenever the program is in a wait loop (keyboard entries, modem 
data transfers, etc.) there are no less than 33 milliseconds 
(300 baud/30 cps) to do non-critical operations. This is more 
than enough time to execute a JSR PRINT.FIFO.OUTPUT.1 
instruction during each "round trip" of the wait loops. If the 
printer is busy- the program is returned to with no data 
transferred; if the printer is not busy, the program is 
returned to after the next FIFO output character is sent, the 
output index (PBOI) is incremented, and the character counter 
(PBCC) is decremented. In any case. the program does not 
depend on the outcome of the subroutine results. The 
subroutines maintain their independence by correctly updating 
and monitoring the character counter (PBCC). 


In my version, I must append a line feed (<LF>) character to 
every Carriage return (<CR>) that is sent. I check every FIFO 
input character to see if it is a <CR>. If so, I store a <LF> 
into the next FIFO input location. Note that if I had decided 
to send the <LF> directly to the printer by monitoring for the 
<CR> in the FIFO output subroutine. I would again have been a 
Slave to the printer while waiting for it to become unbusy with 
the <CR> operation. 


By making PRINT.FIFO.OUTPUT.2 a separate subroutine. I could 
write it for any printer interface card with data and status 
registers and still not require any changes to subroutines 
PRINT.FIFO.INPUT and PRINT.FIFO.OUTPUT.1. This provided some 
versatility for converting the program for some friends with 
different interfaces. 


1000 S------ nnn nn nr en nnn ee === 
1010 * PRINTER HANDLER 
1020 ® USED SO THAT PROGRAM DOESN'T HANG 
Merc # WHEN PRINTER IS BUSY 
1040 # 
1050 # JIM KASSEL 
1060 # 1161 GOODRICH AVE. 
1oke ; ST. PAUL, MN 55105 
0010- 1090 PRINT.SLOT.SHIFTED .EQ $10 
1100 ® PRINTER SLOT # SHIFTED LEFT BY 4 
OOCE- 1110 PBII -EQ $CE PRINT BUFF INPUT INDEX 
OOCF- 1120 PBOI -EQ $CF PRINT BUFF OUTPUT INDEX 
OO1F- ARG PBCC -EQ $iF PRINT BUFF CHAR COUNT 
400- 1140 PBUFF .EQ 3400 PRINT BUFF BASE ADDRESS 
00OD- 1150 CR EQ CARRIAGE RETURN WITH MSB CLR 
O00A- 1160 LF -EQ $A LINE FEED WITH MSB CLR 
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0800- 1180 START -BQ 800 
1190 TART 
1200 #--------~-- ~~~ eee 
1210 # PRINT BUFF INPUT SUBROUTINE 
1230 PRINT .FIFO. INPUT 
0800- 48 1240 PHA 
0801- 29 7F 1250 AND #$7F CLEAR BIT 7 
0803- A4 CE 1270 1 LDY PBII 
0805=- 99 00 94 1280 STA PBUFF,Y STORE CHAR IN PRINT BUFF 
O808- E6 CE 1290 INC PBII INCREMENT INPUT INDEX 
O80A- E6 1F 1308 INC PBCC INCREMENT CHAR COUNT 
O80C- C9 OD 1360 CMP #CR CARRIAGE RETURN? 
O80E- DO 04 1 30 BNE .2 NO 
0810- AQ OA 13 0 LDA #LF YES 
0812= DO EF 1390 BNE .1 SEND <LF> 
0814=- 68 1370 -2 PLA RESTORE CHAR 
0815= 60 1390 2 RTS 
1300 # PRINTER OUTPUT SUBROUTINE 
1420 PRINT.FIFO.OUTPUT. 1 
0816- A5 1F 1830 LDA PBCC PRINT BUFF EMPTY? 
0818- FO OE ae BEQ .1 YES 
O81A= AY 1460 LDY PBOI NO 
081C- B9 00 94 ate LDA PBUFF,Y GET PRINT CHAR 
O81F- 20 29 08 1480 JSR PRINT.FIFO.OUTPUT.2 
1490 # HANDLER OF SPECIFIC INTERFACE 
0822= BO 04 1300 BCS .1 DON'T UPDATE IF PRINTER WAS BUSY 
O824- E6 CF 1520 INC PBOI ELSE, INCREMENT OUTPUT INDEX 
0826- C6 1F 1330 DEC PBCC AND DECREMENT CHAR COUNT 
0828- 60 1390 1 RTS 
1399 # HANDLER FOR THE GRAPPLER (+) 
1580 # INTERFACE CARD 
1390 # AND MX-80 PRINTER(++) 
1610 ® PRINT CHAR MUST BE IN THE A-REG 
1620 ® CARRY SET IF CHAR NOT SENT 
1630 # CARRY CLEARED IF CHAR SENT 
C08 1- 1650 PSTAT .EQ $C081 PRINTER STATUS REG 
CO81- 1660 PREG .EQ $C081 PRINTER DATA REG 
C082- 1 Zo PSTRBL .EQ $C082 PRINTER STROBE LOW 
cosy- ere PSTRBH EQ $C084 PRINTER STROBE HIGH 
1700 PRINT.FIFO.OUTPUT. 2 
0829— AA 1710 TAX SAVE PRINT CHAR 
O82A= AY 1 1720 LDY PRINT.SLOT.SHIFTED 
082C=- B9 81 CO 1730 LDA PSTAT,Y GET PRINTER STATUS 
O82F- 29 OA 1740 AND #$A MASK 
0831- 49 02 1750 EOR #$2 PRINTER SELECTED AND NOT BUSY? 
0833=- DO OD ue. BNE . NO. EXIT 
0832 8A 1 fo TXA YES. RESTORE PRINT CHAR 
0836- 99 81 CO 1790 STA PREG,Y LOAD PRINTER OUTPUT REG 
0839~ 99 82 CO 1800 STA PSTRBL,Y SET STROBE 
083C- 99 84 CO 1810 STA PSTRBH.Y CLR STROBE 
08 BF - 18 1820 CLC CLEAR CARRY 
O840- 90 01 1830 BCC .2 EXIT 
0842- 38 ue a4 SEC SET CARRY 
0843- 60 1870 .2 RTS 
1 ee ee eS 
1890 END 
OO44- 1300 SIZE  .EQ END-START 
1920 # yOTE 
1330 # t+), : TRADEMARK OF ORANGE MICRO. INC. 
ie : TRADEMARK OF EPSON AMERICA, INC. 
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Patches for Applewriter to Unhook PLE......Bob Sander-Cederlof 


If you use Applewriter a lot, like I do.... And if you use Neil 
Konzen's Program Line Editor (PLE) a lot. like I do.... Then you 
probably have at least once tried to BRUN TEDITOR while PLE was 
still ‘astalled, like I have.... | 


The result is maddening, to say the least. Everything seems 
fine. You can load a file into Applewriter, or enter a new one. 
You can edit to your hearts content. Then you try to SAVE it on 
disk. POW! What happened?!! Since PLE is still hooked into 
DOS, it needs to remain unmolested in memory. But Applewriter 
ignores its presence, and puts the text right over the top of 
it. 


I thought I had finally learned my lesson, but then I did it 
again! 


Finally, I decided to make Applewriter unhook everything that 
PLE might have hooked in, during initialization. It turned out 
to be surprisingly easy. Here are the patches. I haved moved 
them up high enough so that if you have the lower case patches 
installed there is no conflict. Now I do not need to reboot to 
get rid of PLE. 


WRIte NOUW 


Southwestem Data Systems, an industry ploneer in innova- 
tive software for the Appie Ii, is always looking for authors. There 
are no limitations on the size or type of software you can 
submit — utilities, communication, business, education, or 
games — the only requirement is that it must meet the quality 
standards which typify all SOS products. When you join the SDS 
team, you get the benefits of a professional support staff 
experienced in providing all you need to get your program to 
market. Here are some of the ways we help you: 


@ TECHNICAL PROGRAMMING ASSISTANCE 
@ UNIQUE COPY PROTECTION W/LIMITED BACKUPS 
@ SUCCESSFUL MARKETING STRATEGIES 

@ ASSISTANCE IN WRITING THE MANUAL 

@ PROFESSIONAL PRODUCT ARTWORK 

@ QUALITY ADVERTISING 

@ SUPERIOR PACKAGING 

@ NATIONAL DISTRIBUTION 

@ HIGHEST ROYALTIES PAID MONTHLY 

@ CUSTOMER SERVICE SUPPORT 


This Is the opportunity you have been waiting for,a chance 
to market your program with the finest publisher in the soft- 
ware industry. Let Southwestern Data Systems’ reputation and 
proven track record for success go to work for you. If you think 
you have what we want — a unique and distinctive software | 
package — please call or write us today! 


| ee ve 


P.O. BOX 582 SANTEE, CA 92071 (714) 562-3670 
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1020 Bannnn ne nn nanan nee e ene ene 
1930 .OR $803 
1040 -TF AW. 1 
0803- 20 73 18 1050 , JSR PATCH REPLACES "JSR $10F8" 
1070 .OR $1873 | SAFE PATCH AREA 
1080 .TF AW.2 
1873- 20 89 FE 1090 PATCH JSR $FE89 § SET INPUT TO KEYBOARD 
1876- 20 93 FE 1100 JSR $FE93 SET OUTPUT TO SCREEN 
1879- A9 9C ss: 1110 A $9¢ 
187B- 8D 01 9D 1120 STA $9001 + RESTORE NORMAL DOS BUFFERS 
187E~ A9 03 | 1130 LDA #3 
1880- 8D 57 AA 1140 STA $AA5 MAXFILES=3 
1883- 20 D4 AT 1150 JSR $A7D 
1880- A2 2F —«- 1160 LDX #$2F 
1888- BD 51 9E 1170 «1 LDA $9E51,X RESTORE PAGE 3 POINTERS 
188B- 9D DO 03 1180 STA $3D0.X 
188E- CA 1190 DEX 
188F- 10 F7 —- 1200 BPL 
1891- 20 EA 03 1210 JSR 5 3RA RE-HOOK DOS 
1894- 4C F8 10 1220 JMP $10F8 DO WHAT THE "JSR PATCH" COVERED 


APPLE S@aaeat ORT tt 


Seaf ORTH for the Apple copputer with DOS 3.3 and 
at least 32K of RAN. Includes Disc 1/0, Editor, 
Assenbler, transcendental Floeting Point, high 
level source listing, end 158 pg. penuel with 
copplete source listing. Seafk ORTH is a 
consistant structured operating system providing 
the prograpper nith the tools to easily create 
progress from prsechine language to high level 
compiled applicetions. Edit- coppile- execute- 
edit cycle is measured in seconds, not pinutes. 
Isplesented as a true incresentel coppiler. 
Seaf ORTH generates nachine code, not interpreted 
address lists. Direct threaded subroutine code 
faplepentation executes such fester then FI8é 
Style interpreted eddress versions. Not for the 
novice prograpper. Menual alone is 825.86, disc 
and panuel for only 875.60. Send Check or Honey 
Order tot 


TAU LAMBDA 

P.O. BOX 868 
POULSBO, WASHINGTON 
96376 

(206) 398-4863 
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Great AGVENCULC.ccccrcccccccsccevcccccvceccesseese eteff Jacobsen 


Have you ever played the ORIGINAL game? Adventure game. that 
is? Adventure was originally developed by Willie Crowther and 
Don Woods in FORTRAN on a DEC PDP-10 computer.~« It is the 
grandfather, or maybe great-grandfather by now, of the hundreds 
of Adventure games you see in the advertisements (you might even 
have bought some!). 


I used the S-C Assembler II to write an Apple version of the 
Original Adventure game. By using text compression techniques, 
I was able to squeeze the entire game into 48K RAM. The 
interaction is lightning fast. and nothing ever has to be found 
on the disk. The whole game is in there: over 130 rooms, 15 
treasures, 40 useful objects, and 12 obstacles or opponents, 


I will send you a copy FREE! Just send me a blank diskette and 
postage. Or send $5.00 and I will send the disk and pay the 
postage. Write to me. Jeff Jacobsen, at Frontier Computing 
Inc., P. O. Box 402, Logan, Utah 84321. 


Problem with QD#5 


The first 14 copies that I sent out of Quarterly Disk #5 were 
incomplete. I forgot to include PMD and FPSUBS. If you have 
one of those with serial #1 thru #14, send it back; I will add 
the programs and return it. I'm sorry! 


Subscriptions Around the World 


We are now sending AAL to over 800 subscribers. Of course most 
of these are in the U.S.A., but an increasing number are 
subscribing from other countries. We now have: 


15 -- Canada 2 -- Hong Kong 

5 -- Sweden 2 -- Ireland 

5 -- New Zealand 1 -- Israel 

4 -- France 1 -- Italy 

4 -- Japan 1 -- Netherlands 
3 -- Australia 1 -- Qatar 

3 -- England 1 -- Saudi Arabia 
3 -- West Germany 1 -- Spain 

3 -- South Africa l1 -- Thailand 

2 -- Argentina 1 -- Turkey 

2 -- Belgium 


And there are also at least a half dozen subscribers with APO 
addresses, who are stationed in strange exotic lands. 
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On Dividing by ‘TEN 66s obs 660 664A 6G se ben ee ewe eed im Church 


Some time ago you asked readers to come up with subroutines to 
divide by ten (or multiply by one-tenth). I may have come up 
with the smallest one, although it is certainly not the fastest. 


By using SWEET-16 to merely subtract 10 over and over, until the 
remainder is less than 10, and counting the number of 
subtractions, I ¢an divide a 16-bit value by ten in a 10-byte 
subroutine! 


In fact, you can divide by any 16-bit value. My program assumes 
the divisor is in $02,03 and the dividend is in $04,05. These 
are the Sweet-16 registers 1 and 2. The quotient will be left 
in $04,05; the remainder will be in $00,01l. 


I used a copy of Sweet-16 in RAM, from the source code on the 
S-C Assembler II disk. If you use the copy in the Integer BASIC 
ROM's, or in the RAM card Integer BASIC, change line 1130 to 
"SW16 .EQ $F689". 


Here is the program listing: 


1000 * 
1010 Bossa SSS as eset aaa Sse esse 
1020 * DIVIDE ANY NUMBER BY 10 OR BY & 
1030 * ANYTHING ELSE FOR THAT MATTER 
1040 & | 
1041 & DIVIDEND - REGISTER 0 $00.01 & 
1042 *& DIVISOR - REGISTER 1 $02.03 & 
1050 x QUOTIENT - REGISTER 2 $04.05 x 
1060 & x 
1070 * EXAMPLE---DIVIDE 65534 BY 10 x 
1080 K OO;FE FF OA 00 00 00 N 300G x 
1090 x x 
1100 & JIM CHURCH x 
Ie a aa a aa a a a 
1120 OR $300 

9BB9 - 1130 SW1é “EQ $9B89 
1140 BorSseSrss ese (Snel e Seeks eses 5 
1150 GO 

0300- 20 89 9B 11460 JSR SW1é6 
1170 STILL.GREATER 

0303- Bi 1180 SUB 1 DEDUCT DIVISOR FROM DIVIDEND 

0304- E2 1190 INR 2 ADD 1 TO QUOTIENT 

0305- Di 1200 CPR 1 DIVIDEND > DIVISOR? 

0306- 035 FB 1210 BC STILL.GREATER 

0308- 00 1220 RTN 

0309- 60 1230 RTS 

000A- 1240 LENGTH .EQ *-GO 


1250 * LOOK IN $00.01 FOR REMAINDER x 
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